home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 82 / 082.d81 / fred boot (.txt) < prev    next >
Commodore BASIC  |  2022-08-26  |  720b  |  20 lines
  1. 5 ifa=0thena=1:load"magic ii",8,1
  2. 10 poke52,62:poke51,0:clr
  3. 15 poke53281,0:poke53280,0:print"[147]"chr$(142)"":gosub60000
  4. 20 sys57812"leapf-ml",8,0:poke780,0:poke781,0:poke782,62:sys65493
  5. 30 sys16384
  6. 40 geta$:ifa$="q"thenpoke53248+21,0:poke53265,11:sys64738
  7. 50 goto40
  8. 10000 open15,8,15,"s0:fred boot":close15:save"fred boot",8:end
  9. 60000 b9$="                                      "
  10. 60010 poke214,14:print:print"  [155][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][152]"
  11. 60020 fori=0to7:printb9$:next:print"  [151][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][152]"
  12. 60030 b9$(0)="f r e d ' s   l e a p f r o g  v1"
  13. 60040 b9$(1)="by fred karg"
  14. 60050 b9$(2)="(c) 1991 by softdisk, inc."
  15. 60060 b9$(3)="published on loadstar #82"
  16. 60070 b9$(4)="subscriptions 1-800-831-2694"
  17. 60080 b9$(5)="all rights reserved"
  18. 60090 poke214,16:print:fori=0to5:printtab(20-(len(b9$(i))/2))""b9$(i):next
  19. 60099 return
  20.